home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 February / 64er_Magazin_86-02_1986_Markt__Technik_de.d64 / schreiberling v2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  11.3 KB  |  327 lines
  1. 10 rem --- schreiberling v2 ---
  2. 20 rem aus 64'er magazin 10/85
  3. 30 rem
  4. 40 rem verbessert von frank behrens
  5. 50 rem forstmeisterweg 8
  6. 60 rem 2400 luebeck
  7. 70 rem
  8. 80 k=828: b=59392
  9. 90 fori=ktok+55:readx:pokei,x:next
  10. 100 sys k
  11. 110 fori=btob+7:readx:pokei,x:next
  12. 120 a=b+27*8
  13. 130 fori=atoa+7:readx:pokei,x:next
  14. 140 a=b+29*8
  15. 150 fori=atoa+7:readx:pokei,x:next
  16. 160 a=b+43*8
  17. 170 fori=atoa+7:readx:pokei,x:next
  18. 180 a=b+60*8
  19. 190 fori=atoa+7:readx:pokei,x:next
  20. 200 a=b+62*8
  21. 210 fori=atoa+7:readx:pokei,x:next
  22. 220 a=b+122*8
  23. 230 fori=atoa+7:readx:pokei,x:next
  24. 240 rem
  25. 250 poke53280,0:poke53281,0
  26. 260 print chr$(9)chr$(14)chr$(8)
  27. 270 print"[147][156]   [211]chreiberling[158] liest [196]aten"
  28. 280 print"   [194]itte warten..."
  29. 290 dim a$(92,2)
  30. 300 for i=1 to 16: q$=q$+chr$(0): next
  31. 310 o$=q$+q$ : e$=chr$(27)
  32. 320 sd$=e$+"k"+chr$(128)+chr$(2)
  33. 330 md$=e$+"*"+chr$(4)+chr$(85)+chr$(3)
  34. 340 dd$=e$+"l"+chr$(0)+chr$(5)
  35. 350 l$=e$+"a"+chr$(8)+e$+"8"+chr$(7)
  36. 360 bz=52344: lf$=chr$(10)+chr$(10)
  37. 370 rem
  38. 380 rem --- einlesen ---
  39. 390 rem
  40. 400 for i=0 to 92
  41. 410  for j=0 to 2
  42. 420   read x :if x=-1 then 450
  43. 430   a$(i,j)=a$(i,j)+chr$(x)
  44. 440   goto 420
  45. 450  next
  46. 460  if len(a$(i,2))=0 then a$(i,2)=left$(o$,len(a$(i,0)))
  47. 470 next
  48. 480 rem --- druckertest ---
  49. 490 gosub 800
  50. 500 rem
  51. 510 rem --- zeilen-texteditor ---
  52. 520 rem
  53. 530 print"[147][154]     [194]itte eine [218]eile eingeben :        [158][146]"
  54. 540 poke204,0: poke198,0
  55. 550 wait198,1:get t$:print t$;
  56. 560 if t$=chr$(13) then 610
  57. 570 goto 550
  58. 580 rem
  59. 590 rem --- ausgabe ---
  60. 600 rem
  61. 610 poke207,0: poke204,1: y=50: p=0
  62. 620 open1,4 : z=peek(bz)
  63. 630 if z=30 then print#1,lf$: close1: goto 530
  64. 640 if z=35 then y=99: p=1: xd$=dd$: goto 670
  65. 650 if z=31 then y=66: p=1: xd$=md$: goto 670
  66. 660 xd$=sd$
  67. 670 for j=0 to 2
  68. 680  print#1,xd$;
  69. 690  for i=bz+p to bz+y
  70. 700   w=peek(i)
  71. 710   if w=122 then print#1,a$(92,j);: goto 740
  72. 720   if w>91 then print#1,q$;: goto 740
  73. 730   print#1,a$(w,j);
  74. 740  next: print#1
  75. 750 next
  76. 760 close1: goto 530
  77. 770 rem
  78. 780 rem --- druckertest ---
  79. 790 rem
  80. 800 poke768,61:open1,4:print#1,l$;:close1:poke768,139
  81. 810 if st=-128 then 830
  82. 820 return
  83. 830 print"[156]   [194]itte [196]rucker einschalten !"
  84. 840 wait203,63:goto 800
  85. 850 rem
  86. 860 rem maschinenprg zum verlegen
  87. 870 rem des zeichensatzes
  88. 880 data120,165,1,41,251,133,1,169,0
  89. 890 data133,95,133,90,133,88,169,208
  90. 900 data133,96,169,224,133,91,169,240
  91. 910 data133,89,32,191,163,165,1,9,4
  92. 920 data133,1,173,0,221,41,252,141,0
  93. 930 data221,169,57,141,24,208,169,204
  94. 940 data141,136,2,88,96
  95. 950 rem
  96. 960 rem umlautedatas f. bildschirm
  97. 970 rem
  98. 980 data102,0,102,102,102,102,62,0
  99. 990 data102,0,60,102,102,102,60,0
  100. 1000 data102,0,60,6,62,102,62,0
  101. 1010 data28,38,102,108,102,102,108,96
  102. 1020 data195,60,102,102,102,102,60,0
  103. 1030 data195,24,60,102,126,102,102,0
  104. 1040 data195,0,102,102,102,102,102,60
  105. 1050 rem
  106. 1060 rem buchstabendatas
  107. 1070 rem klein ue
  108. 1080 data0,2,3,51,112,0,0,50,115,3,0,0,0,-1
  109. 1090 data0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
  110. 1100 rem klein a
  111. 1110 data0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
  112. 1120 data0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
  113. 1130 data0,64,255,255,0,1,2,2,2,2,1,1,0,-1
  114. 1140 data0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
  115. 1150 data0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
  116. 1160 data0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
  117. 1170 data0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
  118. 1180 data0,0,1,3,2,2,2,2,1,0,0,-1
  119. 1190 data0,252,254,35,33,33,33,33,161,98,0,-1,-1
  120. 1200 data0,15,63,114,130,131,131,128,96,32,0,-1
  121. 1210 data0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
  122. 1220 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  123. 1230 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  124. 1240 data0,56,52,4,4,4,4,8,16,240,224,0,0,-1
  125. 1250 data0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
  126. 1260 data0,0,255,255,0,0,0,0,0,254,255,1,2,0,-1,-1
  127. 1270 data0,2,51,51,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  128. 1280 data0,2,51,51,0,-1,0,0,255,255,0,-1,4,8,240,224,0,-1
  129. 1290 data0,128,255,255,0,0,0,3,3,0,0,0,-1
  130. 1300 data0,0,255,255,32,88,76,134,3,1,2,0,-1,-1
  131. 1310 data0,128,255,255,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  132. 1320 data0,1,2,3,1,1,2,3,1,1,2,3,1,0,0,0,-1
  133. 1330 data0,0,0,255,255,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  134. 1340 data0,1,2,3,1,1,2,3,1,0,0,0,-1
  135. 1350 data0,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  136. 1360 data0,0,1,3,2,2,2,2,3,1,0,0,-1
  137. 1370 data0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
  138. 1380 data0,1,2,3,1,0,1,2,2,2,3,1,0,0,-1
  139. 1390 data0,0,0,255,255,132,2,1,1,1,3,254,252,0,-1
  140. 1400 data0,0,0,252,252,4,0,0,0,0,0,0,0,0,-1
  141. 1410 data0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  142. 1420 data0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  143. 1430 data0,0,0,0,0,0,0,0,0,252,252,4,4,-1
  144. 1440 data0,1,2,3,1,2,3,1,1,0,-1,0,0,0,255,255,0,0,128,0,0,-1,-1
  145. 1450 data0,0,1,3,2,2,2,2,3,1,0,0,-1
  146. 1460 data0,198,247,49,49,49,49,49,179,159,12,0,-1,-1
  147. 1470 rem klein t
  148. 1480 data0,1,1,127,255,1,1,1,0,-1
  149. 1490 data0,0,0,254,255,1,2,0,0,-1,-1
  150. 1500 rem klein u
  151. 1510 data0,2,3,3,0,0,0,2,3,3,0,0,0,-1
  152. 1520 data0,0,254,255,3,1,1,2,254,255,1,2,0,-1,-1
  153. 1530 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  154. 1540 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1,-1
  155. 1550 data0,2,3,3,0,0,3,3,0,0,3,3,0,-1
  156. 1560 data0,0,254,255,1,2,254,255,1,2,254,252,0,-1,-1
  157. 1570 data0,2,3,3,2,0,0,0,0,3,2,0,0,-1
  158. 1580 data0,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1
  159. 1590 data0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  160. 1600 data0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1
  161. 1610 data0,0,0,24,28,12,48,192,0,0,0,0,0,0,-1
  162. 1620 data0,3,3,2,2,2,2,2,3,3,2,0,-1
  163. 1630 data0,1,3,7,12,57,113,193,129,3,3,0,-1,-1
  164. 1640 rem klein oe
  165. 1650 data0,0,49,51,2,2,2,2,51,49,0,0,-1
  166. 1660 data0,252,254,3,1,1,1,1,3,254,252,0,-1,-1
  167. 1670 data0,0,0,1,1,1,63,126,226,194,196,96,48,16,0,-1
  168. 1680 data0,2,133,5,30,252,230,3,1,1,3,6,0,0,0,-1,-1
  169. 1690 rem klein ae
  170. 1700 data0,0,1,51,98,2,2,49,96,1,3,2,0,0,-1
  171. 1710 data0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
  172. 1720 data0,4,12,24,48,127,48,24,12,4,0,-1
  173. 1730 data0,0,0,0,0,255,0,0,0,0,0,-1,-1
  174. 1740 data0,0,1,3,6,12,0,0,0,0,0,0,0,0,-1
  175. 1750 data0,128,192,224,176,152,128,128,128,128,128,128,128,0,-1,-1
  176. 1760 rem space
  177. 1770 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
  178. 1780 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
  179. 1790 data0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
  180. 1800 data0,0,48,224,0,48,224,0,0,-1
  181. 1810 data0,0,0,0,0,0,0,0,0,-1,-1
  182. 1820 data0,0,0,0,0,1,6,0,0,1,6,0,0,0,-1
  183. 1830 data0,16,144,150,184,208,144,150,184,208,144,144,128,0,-1,-1
  184. 1840 data0,14,27,49,32,255,32,255,32,48,0,0,0,-1
  185. 1850 data0,4,6,131,129,255,129,255,129,195,102,60,0,-1
  186. 1860 data0,0,0,0,0,192,0,192,0,0,0,0,0,-1
  187. 1870 rem %
  188. 1880 data0,28,62,34,34,62,28,0,1,3,6,12,24,48,96,0,-1
  189. 1890 data0,3,6,12,24,48,96,192,128,28,62,34,34,62,28,0,-1,-1
  190. 1900 rem &
  191. 1910 data0,0,24,60,103,67,38,28,0,0,0,0,0,0,-1
  192. 1920 data0,56,124,198,131,131,193,97,51,30,28,54,33,0,-1,-1
  193. 1930 data0,0,48,224,0,0,-1,0,0,0,0,0,0,-1,-1
  194. 1940 rem (
  195. 1950 data0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
  196. 1960 data0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
  197. 1970 rem *
  198. 1980 data0,0,0,12,6,3,1,31,1,3,6,12,0,0,0,-1
  199. 1990 data0,128,128,152,176,224,192,252,192,224,176,152,128,128,0,-1,-1
  200. 2000 rem eszet
  201. 2010 data0,7,31,56,96,65,65,99,62,0,0,0,-1
  202. 2020 data0,254,255,0,0,131,129,193,99,62,28,0,-1
  203. 2030 data0,4,252,0,0,0,128,128,0,0,0,0,-1
  204. 2040 data0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
  205. 2050 data0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
  206. 2060 data0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
  207. 2070 data0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
  208. 2080 data0,0,0,0,0,0,3,12,48,192,0,0,-1
  209. 2090 data0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
  210. 2100 rem null
  211. 2110 data0,1,15,62,112,192,128,128,128,192,112,63,15,0,-1
  212. 2120 data0,240,252,14,3,1,1,1,3,14,124,240,128,0,-1,-1
  213. 2130 data0,2,6,12,24,48,127,255,0,0,0,-1
  214. 2140 data0,0,0,0,1,3,255,255,3,1,0,-1,-1
  215. 2150 rem 2
  216. 2160 data0,16,32,96,192,192,192,192,227,127,62,0,0,-1
  217. 2170 data0,2,7,15,27,51,99,195,131,3,2,4,0,-1,-1
  218. 2180 data0,48,96,193,193,227,127,28,0,-1
  219. 2190 data0,12,6,131,131,199,254,56,0,-1,-1
  220. 2200 rem 4
  221. 2210 data0,0,3,6,12,24,48,127,255,0,0,0,0,-1
  222. 2220 data0,128,64,64,64,64,64,255,254,64,64,64,0,-1,-1
  223. 2230 data0,0,255,255,99,99,97,96,96,192,0,-1
  224. 2240 data0,4,2,3,3,3,135,254,120,0,0,-1,-1
  225. 2250 rem 6
  226. 2260 data0,0,7,31,57,97,193,128,128,0,0,-1
  227. 2270 data0,248,254,199,131,131,131,199,126,60,0,-1,-1
  228. 2280 data0,192,192,96,96,96,96,97,71,94,248,224,0,-1
  229. 2290 data0,0,0,3,143,188,240,192,128,128,0,0,0,-1,-1
  230. 2300 rem 8
  231. 2310 data0,0,124,198,131,129,131,198,124,0,0,-1
  232. 2320 data0,124,254,195,129,1,129,195,254,124,0,-1,-1
  233. 2330 rem 9
  234. 2340 data0,60,126,227,193,193,193,227,127,31,0,-1
  235. 2350 data0,0,1,1,131,134,156,248,224,0,0,-1,-1
  236. 2360 data0,0,1,1,0,0,-1,0,0,131,131,0,0,-1,-1
  237. 2370 data0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
  238. 2380 rem gross oe
  239. 2390 data0,199,207,31,56,96,64,64,64,64,96,56,31,207,199,0,-1
  240. 2400 data0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
  241. 2410 rem =
  242. 2420 data0,3,3,3,3,3,3,3,3,3,3,0,-1
  243. 2430 data0,48,48,48,48,48,48,48,48,48,48,0,-1,-1
  244. 2440 rem gross ae
  245. 2450 data0,0,0,224,192,3,31,127,252,224,124,31,3,192,224,0,0,0,-1
  246. 2460 data0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
  247. 2470 data0,48,112,192,129,135,252,120,0,-1
  248. 2480 data0,0,0,115,243,0,0,0,0,-1,-1
  249. 2490 rem -
  250. 2500 data0,1,1,1,1,1,1,1,1,1,1,0,-1
  251. 2510 data0,128,128,128,128,128,128,128,128,128,128,0,-1,-1
  252. 2520 rem gross a
  253. 2530 data0,0,0,0,0,3,31,127,252,224,124,31,3,0,0,0,0,0,-1
  254. 2540 data0,2,1,7,127,254,252,152,12,12,12,152,252,126,7,1,2,0,-1,-1
  255. 2550 data0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
  256. 2560 data0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
  257. 2570 data0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
  258. 2580 data0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
  259. 2590 data0,128,255,255,255,128,128,128,128,128,64,112,63,61,15,0,-1
  260. 2600 data0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
  261. 2610 data0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
  262. 2620 data0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
  263. 2630 rem gross f
  264. 2640 data0,128,255,255,255,97,97,193,193,193,193,193,193,97,96,0,-1
  265. 2650 data0,0,255,255,255,0,0,0,0,128,128,192,128,0,0,0,-1
  266. 2660 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  267. 2670 data0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
  268. 2680 data0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
  269. 2690 data0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
  270. 2700 rem gross h
  271. 2710 data0,96,192,128,240,255,127,15,1,1,1,1,1,1,15,127,240,128,192,0,-1
  272. 2720 data0,2,1,3,15,254,252,240,128,128,128,128,128,128,240,254,15,1,3,0,-1,-1
  273. 2730 data0,128,255,255,255,0,0,-1
  274. 2740 data0,0,255,255,255,1,0,-1,-1
  275. 2750 data0,128,192,255,255,255,0,-1
  276. 2760 data0,0,0,255,255,255,0,-1
  277. 2770 data0,4,8,248,240,192,0,-1
  278. 2780 data0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
  279. 2790 data0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
  280. 2800 data0,128,255,255,255,0,0,0,0,0,0,0,0,0,-1
  281. 2810 data0,1,255,255,255,1,1,1,1,1,1,3,7,0,-1,-1
  282. 2820 rem gross m
  283. 2830 data0,0,0,0,0,1,31,127,252,56,14,3,0,0,0,3,14,56,240,127,15,0,0,0,0,0,0,-1
  284. 2840 data0,3,1,7,63,254,248,192,,,,131,238,56,238,131,,,,,224,252,30,7,1,2,0,-1
  285. 2850 data0,0,128,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
  286. 2860 data0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
  287. 2870 data0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
  288. 2880 data4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  289. 2890 rem gross o
  290. 2900 data0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
  291. 2910 data0,240,248,252,14,3,1,1,1,1,3,14,252,248,240,0,-1,-1
  292. 2920 rem gross p
  293. 2930 data0,128,255,255,127,97,192,128,128,128,192,97,63,30,0,-1
  294. 2940 data0,0,255,255,255,129,192,64,64,64,192,128,0,0,0,-1,-1
  295. 2950 rem gross q
  296. 2960 data0,7,15,31,56,96,64,64,64,64,96,56,31,15,7,0,-1
  297. 2970 data0,240,248,252,14,3,1,1,25,13,7,255,249,240,0,-1
  298. 2980 data0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0,-1
  299. 2990 data0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
  300. 3000 data0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
  301. 3010 data0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
  302. 3020 data0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
  303. 3030 data0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
  304. 3040 data0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
  305. 3050 rem gross u
  306. 3060 data0,64,127,127,127,0,0,0,0,0,0,127,127,0,0,0,-1
  307. 3070 data0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1
  308. 3080 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  309. 3090 data0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
  310. 3100 rem gross w
  311. 3110 data0,96,192,240,126,63,15,1,,,,96,59,14,59,96,,,,,3,31,124,224,192,96,,-1
  312. 3120 data0,0,0,0,0,192,252,255,31,14,56,224,128,0,128,224,56,14,7,127,248,128
  313. 3130 data0,0,0,0,0,-1,-1
  314. 3140 data0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
  315. 3150 data0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
  316. 3160 data0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  317. 3170 data0,0,0,0,0,0,224,248,127,14,48,192,0,0,0,0,-1
  318. 3180 data0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
  319. 3190 data0,128,192,192,224,129,129,129,129,131,135,142,156,184,240,224,192,0,-1
  320. 3200 data0,3,7,15,29,57,113,225,193,129,129,129,129,7,3,3,1,0,-1,-1
  321. 3210 rem +
  322. 3220 data0,0,0,0,0,15,15,0,0,0,0,0,-1
  323. 3230 data0,192,192,192,192,252,252,192,192,192,192,0,-1,-1
  324. 3240 rem gross ue
  325. 3250 data0,64,127,127,127,0,0,224,0,224,0,127,127,0,0,0,-1
  326. 3260 data0,0,252,254,255,7,3,3,3,6,12,254,255,3,1,0,-1,-1
  327.